Delphi Informant Complete 1995 - 2000/Delphi Informant Complete 1995 to 2000.iso/Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar/1998/May/di9805fn/StrTst03.dfm/StrTst03.txt

Text File | 1997-12-13 | 6KB | 255 lines

object Form1: TForm1
  Left = 181
  Top = 91
  Width = 567
  Height = 487
  Caption = 'HyperString  Miscelaneous Routines'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 559
    Height = 460
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Edit Routines'
      object Label1: TLabel
        Left = 32
        Top = 8
        Width = 131
        Height = 13
        Caption = 'Enter String to Manipulate:  '
      end
      object Label2: TLabel
        Left = 40
        Top = 372
        Width = 77
        Height = 13
        Caption = 'Resulting String:'
      end
      object Label3: TLabel
        Left = 285
        Top = 362
        Width = 90
        Height = 13
        Caption = 'Number Returned: '
      end
      object Label4: TLabel
        Left = 32
        Top = 64
        Width = 158
        Height = 13
        Caption = 'Enter Substring(s) or Character(s):'
      end
      object Label5: TLabel
        Left = 32
        Top = 96
        Width = 148
        Height = 13
        Caption = 'Enter Numbers to use -     Start:'
      end
      object Label6: TLabel
        Left = 320
        Top = 96
        Width = 31
        Height = 13
        Caption = 'Count:'
      end
      object Label7: TLabel
        Left = 320
        Top = 64
        Width = 43
        Height = 13
        Caption = 'Replace:'
      end
      object StringEntered: TEdit
        Left = 32
        Top = 32
        Width = 481
        Height = 21
        TabOrder = 0
      end
      object RadioGroup1: TRadioGroup
        Left = 32
        Top = 136
        Width = 489
        Height = 193
        Caption = 'Select Operation to Perform on Source String:'
        Columns = 4
        Items.Strings = (
          'Make Number'
          'Make Float'
          'Make Fixed'
          'Make Alpha'
          'Make Alpha Num'
          'Duplicate Character'
          'Make Upper Case'
          'Make Lower Case'
          'Make Proper Case'
          'Fill String'
          'Fill Count'
          'Make Compact'
          'Delete Character'
          'Delete Duplicates'
          'Replace Characters'
          'Replace Substring'
          'Reverse Characters'
          'Delete Table Chars'
          'Replace  Table Char'
          'Replace Table Chars')
        TabOrder = 1
        OnClick = RadioGroup1Click
      end
      object StringReturned: TEdit
        Left = 40
        Top = 392
        Width = 473
        Height = 21
        TabOrder = 2
      end
      object NumReturned: TEdit
        Left = 394
        Top = 360
        Width = 121
        Height = 21
        TabOrder = 3
      end
      object SubStr: TEdit
        Left = 200
        Top = 60
        Width = 105
        Height = 21
        TabOrder = 4
      end
      object NumToUse: TEdit
        Left = 201
        Top = 92
        Width = 104
        Height = 21
        TabOrder = 5
      end
      object SecondNum: TEdit
        Left = 392
        Top = 92
        Width = 121
        Height = 21
        TabOrder = 6
      end
      object SubStr2: TEdit
        Left = 392
        Top = 60
        Width = 121
        Height = 21
        TabOrder = 7
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Matching/Scanning Routines'
      object SeachText: TLabel
        Left = 32
        Top = 16
        Width = 158
        Height = 13
        Caption = 'Search Text or Char / First String:'
      end
      object Label8: TLabel
        Left = 32
        Top = 48
        Width = 147
        Height = 13
        Caption = 'StartLocation / Second String: '
      end
      object ResultLbl: TLabel
        Left = 176
        Top = 384
        Width = 33
        Height = 13
        Caption = 'Result:'
      end
      object SearchText: TEdit
        Left = 200
        Top = 16
        Width = 329
        Height = 21
        TabOrder = 0
      end
      object PerformActionsBtn: TButton
        Left = 312
        Top = 200
        Width = 185
        Height = 25
        Caption = 'Perform Boyer-Moore Search Again'
        TabOrder = 1
        OnClick = PerformActionsBtnClick
      end
      object OpenFileBtn: TButton
        Left = 96
        Top = 200
        Width = 75
        Height = 25
        Caption = 'Open File'
        TabOrder = 2
        OnClick = OpenFileBtnClick
      end
      object RadioGroup2: TRadioGroup
        Left = 32
        Top = 80
        Width = 489
        Height = 105
        Caption = 'Search Method'
        Columns = 2
        Items.Strings = (
          'Similar Match'
          'Soundex Match'
          'MetaPhone Match'
          'Forward Scan from Location'
          'Backward Scan from Location'
          'Forward Char Scan from Start'
          'Backward Char Scan'
          'Forward Char Scan from Start for Nth Instance'
          'Forward Char Scan from Start for Table Char'
          'Backward Char Scan from Start for Table Char'
          'Quick Boyer-Moore Scan'
          'Continue Boyer-Moore Scan')
        TabOrder = 3
        OnClick = RadioGroup2Click
      end
      object Memo1: TMemo
        Left = 32
        Top = 232
        Width = 489
        Height = 137
        ScrollBars = ssBoth
        TabOrder = 4
      end
      object SecondString: TEdit
        Left = 200
        Top = 48
        Width = 329
        Height = 21
        TabOrder = 5
      end
      object ResultField: TEdit
        Left = 232
        Top = 380
        Width = 289
        Height = 21
        TabOrder = 6
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 12
    Top = 400
  end
end